home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / ARCHIVERS / BEGINNER / TARZ / !tarZ / tarzold < prev    next >
Text File  |  1999-04-24  |  504b  |  20 lines
  1. BEGIN {
  2.       system("unset tarZold$flag");
  3.       command="count <tarZ$use> ~CR~V";
  4.       command | getline;
  5.       while ($2!=files)
  6.          {
  7.          if (substr($2,length($2)-length("_files")+1)=="_files")
  8.             {
  9.             system("set tarZold$flag true");
  10.             break;
  11.             }
  12.          if (substr($2,length($2)-length("files")+1)=="files")
  13.             {
  14.             system("set tarZold$flag false");
  15.             break;
  16.             }
  17.          command | getline;
  18.          }
  19.       }
  20.